(select-safe-coding-system): Cope if default-coding-system gives nil

which was then used in `min'.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 4eaf6184a91faacd8ecd0a5841cccd37537b6bee..1f657700fc8dcf5cb12011ee7de74544e4ddcaf5 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -723,9 +723,10 @@ and TO is ignored."
       (let ((window-configuration (current-window-configuration)))
        (save-excursion
          ;; Make sure the offending buffer is displayed.
-         (when (and default-coding-system (not (stringp from)))
+         (when (and (consp default-coding-system) (not (stringp from)))
            (pop-to-buffer bufname)
-           (goto-char (apply 'min (mapcar #'(lambda (x) (car (cadr x)))
+           ;; The `or' is because sometimes (car (cadr x)) is nil.
+           (goto-char (apply 'min (mapcar #'(lambda (x) (or (car (cadr x)) (point-max)))
                                           default-coding-system))))
          ;; Then ask users to select one from CODINGS.
          (with-output-to-temp-buffer "*Warning*"